﻿Imports System.Configuration
Imports System.IO

Public Class LocaisEmDisco

    Public Sub New()

        If Directory.Exists(LocaisEmDisco.StorageRaiz) Then
            Throw New ConfiguracaoException("O diretório StorageRaiz " & LocaisEmDisco.StorageRaiz & " não existe ou não está acessível")
        End If

    End Sub

    Public Shared Function StorageRaiz() As String
        If ConfigurationManager.AppSettings("StorageRaiz") Is Nothing Then
            Throw New ConfiguracaoException("É preciso o appSetting StorageRaiz")
        End If

        Return ConfigurationManager.AppSettings("StorageRaiz")
    End Function

End Class
